home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-07_2001_CSW_Side_A.d64 / audio in (dt) (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  215 lines
  1. 10 rem audio in
  2. 11 rem (w)1990 by t.baade
  3. 12 rem (x)2001
  4. 13 rem email:
  5. 14 rem torsten@sport-moeller.de
  6. 15 rem ------------------------
  7. 20 poke 53280,6:poke 53281,6:rem farbe
  8. 30 poke 788,52:rem stop-off
  9. 40 poke 650,128
  10. 50 poke53370,0:rem scpu -> 1 mhz
  11. 60 print"[147][158]                 [193][213][196][201][207] in               ";
  12. 70 print"         (w)1990  by [212]orsten [194]aade      "
  13. 100 print "_ - 0     [204]autstaeerke           : 15  "
  14. 110 print "e         [197]inblenden        [210]ate : 200"
  15. 120 print "a         [193]usblenden        [210]ate : 200"
  16. 130 print "t         [212]remoloeffekt     [210]ate : 3  "
  17. 140 print"p         [198]ilter    ein/[150]aus[146]"
  18. 150 print "@         [200]ochpass  ein/[150]aus"
  19. 160 print "*         [194]andpass  ein/[150]aus"
  20. 170 print "^         [212]iefpass  ein/[150]aus"
  21. 180 print"+   -     [199]renzfrequenz          : 140"
  22. 190 print"f1[146]-f7[146]     [199]renzfrequenz fest
  23. 200 [153]"r         (NULL)esonanz  ein/defaus"
  24. 210 [153]"\         (NULL)ah - (NULL)ah         (NULL)ate : 30
  25. 220 print"home[146]      [215]oi - [215]oi         [210]ate : 30
  26. 230 [153]"delwait       (NULL)ah - (NULL)oi         (NULL)ate : 30
  27. 235 print"[155]  [214]erzoegerungsraten mit [195]=[146] + [212]aste "
  28. 240 si=54272:la=si+24
  29. 250 pokela,15:a=15
  30. 260 re=200:ra=200:rt=3:gf=140:rh=30:ro=30:ri=30
  31. 270 dim a(10):data 15,1,2,3,4,5,7,9,11,13,0
  32. 280 forl=0to10:read a(l):next
  33. 290 poke si+21,7:poke si+22,140:pokesi+23,0
  34. 298 ::::::::::::::::::::::::::::::::::::
  35. 299 poke 198,0:wait 198,1
  36. 300 print""tab(34)"   [157][157][157]"a""
  37. 310 get a$:if a$=""then 310
  38. 315 :::::::::::::::::::::::::::::::::::
  39. 320 if a$="e"goto 400
  40. 323 if a$="[177]"goto 491
  41. 325 if a$="a"goto 500
  42. 328 if a$="[176]"goto 591
  43. 330 if a$="t"goto 600
  44. 333 if a$="[163]"goto 691
  45. 335 if a$="p"goto 700
  46. 337 if a$="r"goto 750
  47. 340 if a$="@"goto 800
  48. 350 if a$="*"goto 850
  49. 351 if a$="[135]"goto 950
  50. 352 if a$="[136]"goto 950
  51. 355 if a$="^"goto 900
  52. 356 if a$="+"goto 950
  53. 357 if a$="-"goto 950
  54. 358 if a$="[133]"goto 950
  55. 359 if a$="[134]"goto 950
  56. 360 if a$="[168]"goto 1000
  57. 362 if a$="[147]"goto 1010
  58. 364 if a$="[148]"goto 1020
  59. 366 if a$=chr$(13)then run
  60. 370 if a$="\"then 1100
  61. 373 if a$=""then 1300
  62. 375 if a$=""then 1500
  63. 380 if a$=chr$(3)then ra=80:b$="s":goto500
  64. 389 :::::::::::::::::::::::::::::::::::
  65. 390 if a$="_"then a$="10"
  66. 395 poke la,a(val(a$))orfm
  67. 396 a=a(val(a$))
  68. 399 goto 300
  69. 400 rem einblenden
  70. 410 print""tab(10)"[150][197]inblenden"
  71. 420 for l=a to 15
  72. 430 poke la,lorfm
  73. 435 print""tab(34)"   [157][157][157]"l""
  74. 440 forl1=0tore
  75. 450 next
  76. 460 get a$:if a$<>""thena=l:goto 480
  77. 465 next l
  78. 470 a=15
  79. 480 print""tab(10)"[197]inblenden"
  80. 490 goto 300
  81. 491 print""tab(33);
  82. 492 input re
  83. 493 print"":print""tab(33)":"
  84. 494 goto 300
  85. 500 rem ausblenden
  86. 510 print""tab(10)"[150][193]usblenden"
  87. 520 for l=a to 0 step-1
  88. 530 poke la,lorfm
  89. 535 print""tab(34)"   [157][157][157]"l""
  90. 540 forl1=0tora
  91. 550 next
  92. 560 get a$:if a$<>""thena=l:goto 580
  93. 565 next l
  94. 570 a=0
  95. 580 print""tab(10)"[193]usblenden"
  96. 585 if b$="s"thenpoke53371,0:print"[147][194]ye...":poke788,49:end
  97. 590 goto300
  98. 591 print""tab(33);
  99. 592 input ra
  100. 593 print"":print""tab(33)":"
  101. 594 goto 300
  102. 600 rem tremolo
  103. 610 print""tab(10)"[150][212]remoloeffekt"
  104. 620 forl=15to3step-1
  105. 630 pokela,lorfm:forl1=0tort:nextl1
  106. 640 nextl
  107. 650 forl=3to15:pokela,lorfm
  108. 660 forl1=0tort:nextl1
  109. 670 nextl
  110. 680 geta$:ifa$=""then620
  111. 685 print""tab(10)"[212]remoloeffekt"
  112. 690 a=15:goto300
  113. 691 print""tab(33);
  114. 692 input rt
  115. 693 print"":print""tab(33)":"
  116. 694 goto 300
  117. 700 rem filter ein/aus
  118. 705 ff=1-ff
  119. 710 b$="ein/[150]aus"
  120. 715 if ff then b$="[153]ein[146]/aus"
  121. 720 print""tab(20)b$
  122. 725 rs=rsand240
  123. 730 rs=rsorff*8
  124. 735 poke la-1,rs
  125. 740 goto 300
  126. 750 rem resonanz ein/aus
  127. 755 fr=1-fr
  128. 760 b$="ein/[150]aus"
  129. 765 if fr then b$="[153]ein[146]/aus"
  130. 770 print""tab(20)b$
  131. 775 rs=rsand8
  132. 780 rs=rsorfr*240
  133. 785 poke la-1,rs
  134. 790 goto 300
  135. 800 rem hochpass ein/aus
  136. 805 fh=1-fh
  137. 810 b$="ein/[150]aus"
  138. 815 if fh then b$="[153]ein[146]/aus"
  139. 820 print""tab(20)b$
  140. 825 fm=fmand48
  141. 830 fm=fmorfh*64
  142. 835 poke la,fmora
  143. 840 goto 300
  144. 850 rem bandpass ein/aus
  145. 855 fb=1-fb
  146. 860 b$="ein/[150]aus"
  147. 865 if fb then b$="[153]ein[146]/aus"
  148. 870 print""tab(20)b$
  149. 875 fm=fmand80
  150. 880 fm=fmorfb*32
  151. 885 poke la,fmora
  152. 890 goto 300
  153. 900 rem tiefpass ein/aus
  154. 905 ft=1-ft
  155. 910 b$="ein/[150]aus"
  156. 915 if ft then b$="[153]ein[146]/aus"
  157. 920 print""tab(20)b$
  158. 925 fm=fmand96
  159. 930 fm=fmorft*16
  160. 935 poke la,fmora
  161. 940 goto 300
  162. 950 rem grenzfrequenz
  163. 960 ifa$="+"thengf=gf+2:ifgf>255thengf=254
  164. 961 ifa$="[133]"thengf=50
  165. 962 ifa$="[134]"thengf=90
  166. 963 ifa$="[135]"thengf=140
  167. 964 ifa$="[136]"thengf=200
  168. 965 ifa$="-"thengf=gf-2:ifgf<0thengf=0
  169. 966 print""tab(34)"    [157][157][157][157]"gf""
  170. 970 pokesi+22,gf
  171. 999 goto 300
  172. 1000 print""tab(33);
  173. 1002 input rh
  174. 1004 print"":print""tab(33)":"
  175. 1006 goto 300
  176. 1010 print""tab(33);
  177. 1012 input ro
  178. 1014 print"":print""tab(33)":"
  179. 1016 goto 300
  180. 1020 print""tab(33);
  181. 1022 input ri
  182. 1024 print"":print""tab(33)":"
  183. 1026 goto 300
  184. 1100 rem woi - woi
  185. 1110 printtab(10)"[150][215]ah - [215]ah"
  186. 1120 forl=50to200step5
  187. 1130 poke si+22,l
  188. 1140 forl1=0torh:nextl1
  189. 1150 geta$:ifa$<>""then1190
  190. 1160 next
  191. 1180 goto 1120
  192. 1190 printtab(10)"[215]ah - [215]ah":pokesi+22,gf:goto300
  193. 1300 rem wah - wah
  194. 1310 printtab(10)"[150][215]oi - [215]oi"
  195. 1320 forl=200to50step-5
  196. 1330 poke si+22,l
  197. 1340 forl1=0toro:nextl1
  198. 1350 geta$:ifa$<>""then1390
  199. 1360 next
  200. 1380 goto 1320
  201. 1390 printtab(10)"[215]oi - [215]oi":pokesi+22,gf:goto300
  202. 1500 rem wah - woi
  203. 1510 printtab(10)"[150][215]ah - [215]oi"
  204. 1520 forl=50to200step5
  205. 1530 pokesi+22,l
  206. 1540 forl1=0tori:nextl1,l
  207. 1550 get a$:ifa$<>""then1700
  208. 1560 forl=200to50step-5
  209. 1570 pokesi+22,l:forl1=0tori:nextl1,l
  210. 1580 geta$:ifa$<>""then1700
  211. 1590 goto 1520
  212. 1700 poke si+22,gf
  213. 1710 printtab(10)"[215]ah - [215]oi"
  214. 1720 goto 300
  215.